Ucitati prirodan broj n i elemente niza x duzine n. Prikazati vrednost najveceg
elementa niza.

Sub zad4()
Dim x(100) As Double, n As Long, i As Long, xmax As Double
Open "najveci.txt" For Input As #1
Input #1, n
For i = 1 To n
Input #1, x(i)
Next
Close #1
xmax = x(1)
For i = 1 To n
 If x(i) > xmax Then
 xmax = x(i)
 End If
Next
MsgBox ("Najveci je: " & xmax)
End Sub


